REM -----------------------------------------
REM              Etiketten Druck
REM         © 1988 by Pumuckel-Soft
REM -----------------------------------------

SCREEN 2,640,240,4,2
WINDOW 2,"Disketten-Etiketten-© by Pumuckel-Soft",,1,2
PALETTE 0,1,1,1

Bildaufbau:
   COLOR 15,0
   LOCATE 1,23:PRINT " PPPPPPPP   SSSSSSS   BBBBBBBBB " 
   LOCATE 2,23:PRINT " P       P S       S  B        B"
   LOCATE 3,23:PRINT " P       P S          B        B"
   COLOR 5,0
   LOCATE 4,16:PRINT " © Copyright 1988 by Michael Junker (alias PSB)"
   COLOR 15,0
   LOCATE 5,23:PRINT " P                 S  B        B"
   LOCATE 6,23:PRINT " P         S       S  B        B"
   LOCATE 7,23:PRINT " P          SSSSSSS   BBBBBBBBB "
   COLOR 13,0 : LOCATE 9,20 : PRINT "         DISKETTEN - ETIKETTEN": PRINT
   COLOR 2,0 : PRINT " Dieses Programm ist dafür da, um Disk-Etiketten zu drucken. Sie brauchen "
   PRINT "  nur den Namen, die Nummer und die Art der Diskette anzugeben.Wobei bei "
   PRINT "  Art gemeint ist, ob es eine Anwender oder eine Spiel Diskette ist. Das "
   PRINT "        bleibt aber jedem selbst überlassen, viel vergnügen ...!!"
   LINE (280,115)-(525,200),2,b
   COLOR 2,0
   LOCATE 16,37 : PRINT "         Schreibschutz AUS ->"
   LOCATE 17,37 : PRINT "                       AN  ->"
   LOCATE 18,37 : PRINT "-----------------------------"
   LOCATE 19,37 : PRINT "Etikettendrucker          001"
   LOCATE 20,37 : PRINT "-----------------------------"
   LOCATE 22,37 : PRINT "Diskname   : Etikettendrucker"
   LOCATE 23,37 : PRINT "Disknummer : 001"
   LOCATE 24,37 : PRINT "Diskart    : Anwender"
   LOCATE 25,37 : PRINT "Copierprg  : WB-Kopieren"
   COLOR 5,0 
   LOCATE 19,1 : PRINT " ... so ähnlich sehen die  \"
   LOCATE 20,1 : PRINT "                         --->"
   LOCATE 21,1 : PRINT "  Etiketten dann aus !!    /"

Mouse1:   
   COLOR 2,1 : LOCATE 27,22 : PRINT " 1 X linke Maus-Taste für weiter  ..."   
   IF MOUSE(0)>-1 THEN Mouse1  : REM  nur wenn Maus gedrueck, dann weiter !

  Bildaufbau2:
     CLS
     FOR a=0 TO 620 STEP 4      : REM \
     i=i+1 : IF i=15 THEN i=0   : REM  > obere Dreieck
     LINE (320,0)-(a,80),i      : REM /
     NEXT a
  
     FOR a=0 TO 620 STEP 4      : REM \
     i=i+1 : IF i=15 THEN i=0   : REM  > untere Dreieck
     LINE (320,80)-(a,0),i      : REM /
     NEXT a
     COLOR 2,1
     LOCATE 16,36 : PRINT "  _______________"
     LOCATE 16,25 : PRINT "Diskname  :",dn$   
     LOCATE 18,36 : PRINT "  ___"
     LOCATE 18,25 : PRINT "Disknummer:",dr$
     LOCATE 20,36 : PRINT "  _______________"
     LOCATE 20,25 : PRINT "Diskart   :",da$
     LOCATE 22,36 : PRINT "  _______________"
     LOCATE 22,25 : PRINT "Copierprg.:",co$
     LINE (50 ,195)-(190,212),9,bf : LINE (50 ,195)-(190,212),2,b : REM Eingaben
     LINE (250,195)-(390,212),9,bf : LINE (250,195)-(390,212),2,b : REM Drucken
     LINE (430,195)-(570,212),9,bf : LINE (430,195)-(570,212),2,b : REM Beenden
     COLOR 2,9
     LOCATE 26,12 : PRINT "Eingaben"
     LOCATE 26,37 : PRINT "Drucken"
     LOCATE 26,60 : PRINT "Beenden!"
     
  
  
  Maus:
      ON MOUSE GOSUB Start
      MOUSE ON
      GOTO Maus
  
  Start:   
      Maus=MOUSE(0)
      y=MOUSE(1) : x= MOUSE(2)          
      IF x>197 AND x<213 AND y> 54 AND y<193 THEN Eingaben
      IF x>197 AND x<213 AND y>254 AND y<393 THEN Drucker
      IF x>197 AND x<213 AND y>434 AND y<573 THEN Allesende
      RETURN
   
  Eingaben:
     COLOR 2,1     
     LOCATE 16,36 : PRINT "  _______________" : REM \     
     LOCATE 18,36 : PRINT "  ___"             : REM  \  erstmal
     LOCATE 20,36 : PRINT "  _______________" : REM  /         saubermachen
     LOCATE 22,36 : PRINT "  _______________" : REM /
    
     LOCATE 16,38 : INPUT"",dn$               : REM \
     LOCATE 18,38 : INPUT"",dr$               : REM  \  dann was
     LOCATE 20,38 : INPUT"",da$               : REM  /      eingeben
     LOCATE 22,38 : INPUT"",co$               : REM /

     IF dn$="" AND dr$="" AND da$="" AND co$="" THEN eingegeben=0 : GOTO Maus
     REM      obere Zeile=wenn nur immer<RETURN> gedrueckt wurde
     REM         (nichts im String steht) dann nicht drucken 
     REM                        (warum auch !)
     
     eingegeben=1
     GOTO Maus
 
Drucker:
  IF eingegeben=0 THEN Info : REM   wenn keine einbgabe statgefunden hat !
  OPEN "par:" FOR OUTPUT AS #1     
      a$=" " : x=LEN(dn$) : z=15-x
      FOR w=0 TO z : dn$=dn$+a$ : NEXT w : REM  Diskname max. 15 Zeichen  
      a$=" " : x=LEN(dr$) : z=3-x
      FOR w=0 TO z : dr$=dr$+a$ : NEXT w : REM  Disknummer max. 3 Zeichen
      a$=" " : x=LEN(da$) : z=15-x
      FOR w=0 TO z : da$=da$+a$ : NEXT w : REM  Diskart max. 15 Zeichen
      a$=" " : x=LEN(co$) : z=15-x
      FOR w=0 TO z : co$=co$+a$ : NEXT w : REM  Copierprg. max. 15 Zeichen
  PRINT#1,CHR$(27);"x1"; : REM  NLQ einschalten
  PRINT#1,"+++++++++++++++++++++++++++++"
  REM Superscript ein bzw. aus
  PRINT#1,"+ ";CHR$(27);"S";CHR$(0);"       Schreibschutz Aus->";CHR$(27);"T";"+"
  PRINT#1,"+ ";CHR$(27);"S";CHR$(0);"       Schreibschutz An ->";CHR$(27);"T";"+"
  
  REM    Nun der Text der auf der oberen Kante steht
  REM    ( wenn die Diskette im Kasten steht,kann man
  REM      von oben sehen was es fuer eine Disk ist ! )
  
  PRINT#1,"+";CHR$(27);"S";CHR$(0);dn$;"       ";dr$;CHR$(27);"T";"+"
  
  REM   ... hier geht es normal weiter !
  
  PRINT#1,"+                           +"
  PRINT#1,"+                           +"
  PRINT#1,CHR$(20);
  PRINT#1,CHR$(27);"T";
  PRINT#1,"+                           +
  PRINT#1,"+                           +"
  PRINT#1,"+---------------------------+"
  PRINT#1,"+ Diskname :";dn$"+"
  PRINT#1,"+---------------------------+"
  PRINT#1,"+ Disknr.  :";dr$"            +"
  PRINT#1,"+---------------------------+"
  PRINT#1,"+ Diskart  :";da$"+"
  PRINT#1,"+---------------------------+"
  PRINT#1,"+ Copierprg:";co$"+"
  PRINT#1,"+++++++++++++++++++++++++++++"
  PRINT#1,"" : PRINT#1,"" :  s=s+1
  IF s=3 THEN PRINT#1,CHR$(12) : s=0
  CLOSE#1
  LOCATE 16,36 : PRINT "  _______________" : REM \
  LOCATE 18,36 : PRINT "  ___"             : REM  \ Eingabenfeld
  LOCATE 20,36 : PRINT "  _______________" : REM  /          reinigen
  LOCATE 22,36 : PRINT "  _______________" : REM /
  eingegeben=0
  GOTO Maus
  
Allesende:
  FOR a=0 TO 640 STEP 2
  LINE (a,260)-(a,0),1
  NEXT a
  FOR a=639 TO 0 STEP -2
  LINE (a,260)-(a,0),1
  NEXT a
  LOCATE 15,23 :COLOR 3,2 : PRINT " .... gehe zurück zum System ! By by ..."
  FOR e=0 TO 1500 : NEXT e
  SYSTEM

 Info:
  COLOR 12,0
  LOCATE 14,20 : PRINT " ... erst was eingeben und dann Drucken !!!"
  FOR i=0 TO 1000 : NEXT i
  LOCATE 14,20 : PRINT "                                           "
  COLOR 4,9
  GOTO Maus